home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / lang8.dll / POST / 1154 < prev    next >
Text File  |  1996-10-03  |  650b  |  40 lines
  1. supdict begin
  2. /dashpat [12 3] def   
  3. /lineloop 
  4. { ystart spacing ystart abs
  5. { /ycur xdf  
  6. dashes?   
  7. { 
  8. cnt 1 and 0 eq { dashpat 0 setdash }
  9. { dashpat dashpat 0 get dashpat 1 get add 2 div setdash }
  10. ifelse } if
  11. xstart ycur m
  12. xstart abs ycur L
  13. stroke incrcnt
  14. } for } def
  15. end  
  16. /newhatch  
  17. {
  18. supdict begin  
  19. q newinside
  20. /dashes? xdf 
  21. /color xdf
  22. colorchoice  
  23. w
  24. /spacing xdf  
  25. /ang2 xdf 
  26. /angle xdf  
  27. /xstart {x1 x2 add 2 div neg} bdf 
  28. /ystart {y1 y2 add 2 div neg} bdf 
  29. dx 2 div dy 2 div translate
  30. q angle rotate
  31. lineloop Q 
  32. ang2 angle sub abs 180 ne  
  33. {
  34. ang2 rotate  
  35. /angle ang2 def
  36. lineloop
  37. } if
  38. Q end
  39. } def